#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use XML::Simple;

my $status = shift;
my $ua = LWP::UserAgent->new();
my $req = GET 'http://aap_ugr:ugr_aap@twitter.com/statuses/friends_timeline.xml';
my $res = $ua->request($req);
#print $res->content;

if ($res->is_success) {
 	#print $res->content,"\n";
	my $respuesta=XMLin($res->content);
	for my  $h ( keys %{$respuesta->{status}} ) {
  		print $respuesta->{'status'}{$h}{'user'}{'name'},"\n";
	}



} else {
  die $res->status_line;
}
